

let costFactor = 0.00008

let maxInstructions = 75

let rateScale = 10.0 (* -- typical max rate is 0.1 *)
let principalScale = 0.02 (*  -- typical max principal is 50  *)
let defScale = 20.0 (*  -- typical max def rate is 0.05 *)
let matScale = 0.1 (* -- typical max maturity is 10 years *)
let bcScale = 0.0001 (* -- typical max cash is 10000 *)
let capScale = 1.0 (* -- typical max cap ratio is 1 *)
let liqScale = 1.0 (* -- typical max liq ratio is 1  *)
let crScale = 5.0 (* -- typical max liq ratio is 0.2 *)

let max_proposal_tries = 2

let n = 75 (* width of lookup window *)
let lambda = 0.05

let prof_thresh = 0.0

let taxrate = 0.3

let crp = (0.04,0.01,5.0)

let numbanks = 8

let table_point_mutate_bound = 50 (* == 50% chance of a point mutation *)

exception BAD_MANAGEMENT

exception NOT_IMPLEMENTED

exception INTERNAL_ERROR ;;


